home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 October / Macformat17.cdr / Shareware City / HyperCard / hyper-extras-hc / HyperExtras / HyperExtras.rsrc / TEXT_3007_popMenText.txt < prev    next >
Encoding:
Text File  |  1994-07-11  |  1.1 KB  |  41 lines
  1.  if which is "windows" then
  2.     put the windows into text
  3.     put the btn1rect of window "monitor" into x
  4.   end if
  5.   if which is "inUse" then
  6.     put the stacksInUse into text
  7.     put the btn2rect of window "monitor" into x
  8.   end if
  9.   if which is "stackL" then
  10.     global stacksSeen
  11.     put stacksSeen into text
  12.     put the btn3rect of window "monitor" into x
  13.   end if
  14.   put item 1 of x&","&item 2 of x into x
  15.   put getPopMen(text,x,monitor,2) into menuResult
  16.   if which is "windows" then
  17.     if the shiftKey is down then
  18.       show window line menuResult of text
  19.     end if
  20.   end if
  21.   if which is "inUse" then
  22.     if the shiftKey is down then
  23.       put line menuResult of the stacksInUse into x
  24.       go to stack x in a new window
  25.     end if
  26.     if the optionKey is down then
  27.       put line menuResult of the stacksInUse into x
  28.       stop using stack x
  29.     end if
  30.   end if
  31.   if which is "stackL" then
  32.     if the shiftKey is down then
  33.       if the optionKey is up then
  34.         put line menuResult of text into x
  35.         go to x
  36.       else
  37.         put line menuResult of text into x
  38.         go to x in a new window
  39.       end if
  40.     end if
  41.   end if